﻿Public Class frmEnvio
    Dim Bitacora As New clsActividad
    Dim cont As String = 0
    Dim nombre As String
    Dim i As Integer = 1
    Dim direccion As String
    Sub copiar()
        Try
            'Control para buscar el directorio destino.

            'Cargamos aquí el directorio
            TextBox2.Text = FolderBrowserDialog1.SelectedPath
            'Control de errores.
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try

        'Variable que obtendrá cada directorio
        Dim directorio As String

        'Controlamos el boton cancelar y salimos sin mas si se ha presionado
        If OpenFileDialog1.FileName = "OpenFileDialog1" Then Exit Sub
        'extraemos el directorio del o los archivos seleccionado
        directorio = Mid(OpenFileDialog1.FileName, 1, InStrRev(OpenFileDialog1.FileName, "/"))
        'Si es nula la extracción buscamos la otra barra invertida para el caso
        'de los directorios raices.
        If directorio = "" Then
            directorio = Mid(OpenFileDialog1.FileName, 1, InStrRev(OpenFileDialog1.FileName, "\"))
        End If
        'Finalmente recorremos él o los archivos seleccionados...
        For Each archivos In OpenFileDialog1.SafeFileNames
            'Los cargamos en el listbox1
            ListBox1.Items.Add(archivos)
        Next
        'Control de Errores.

        'Variable que contendrá el nombre y extensión de cada archivo.
        Dim archivo As String
        'Path del directorio destino
        Dim path As String
        'Variables para hallar las barras invertidas y el bucle
        Dim i As Integer
        Dim x As Integer
        'Recorremos todos los archivos del Listbox1
        For x = 0 To ListBox1.Items.Count - 1
            'Cada vez que el valor de x avanza, se selecciona el elemento
            'con valor x del Listbox1
            ListBox1.SelectedIndex = x
            'Asignamos a i el valor donde fue hallada la barra, iniciando desde el final del texto.
            i = InStrRev(ListBox1.Text, "/")
            'Controlamos el valor de i
            If i = 0 Then
                'Volvemos a buscar pero la otra barra
                i = InStrRev(ListBox1.Text, "\")
            End If
            'Extraemos el nombre del archivo y la extensión.
            archivo = Mid(ListBox1.Text, i + 1, Len(ListBox1.Text) - i + 2)
            'Aquí controlamos las barras, si es un path de directorio raiz o no.

            'Copiamos desde el origen al destino.
            'Con la última opción True o False controlas la sobreescritura del archivo
            'que se está copiando.
            My.Computer.FileSystem.CopyFile(directorio & ListBox1.Text, direccion & ListBox1.Text)
        Next
    End Sub
    Private Sub toolGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles toolGuardar.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub
    Private Sub Copiar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim usuarioreg As Microsoft.Win32.RegistryKey
        usuarioreg = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Control\Mantenimiento")

        If UsuarioActivo = "ANGEL" Then
            RadioButton1.Visible = True
        Else
            RadioButton1.Visible = False
        End If
        OpenFileDialog1.Filter = "Archivos PDF (*.pdf)|*.pdf"
        OpenFileDialog1.Multiselect = True
        usuarioreg = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\Control\Mantenimiento")


    End Sub
    Private Sub RadButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton1.Click
        Dim file As String = TextBox1.Text
        Dim nom As String
        Dim fech As String
        fech = ComboBox2.Text & ComboBox3.Text & TextBox3.Text
        nom = TextBox2.Text
        nombre = UsuarioActivo & " " & nom & " " & fech
     
        If TextBox1.Text = "" Then
            MsgBox("Debes indicar un archivo", MsgBoxStyle.Exclamation)
        Else
            If TextBox2.Text = "" Then
                MsgBox("Debes indicar un nombre", MsgBoxStyle.Exclamation)
            Else
                If RadioButton1.Checked = True Then
                    If CheckBox1.Checked = True Then
                        direccion = "\\aussvr\Envios PDF\Pagobusdiego" & "\"
                        copiar()
                        CheckBox1.Checked = False
                    Else
                        For Each file In OpenFileDialog1.FileNames
                            cont = cont + 1
                            'nombre = frmMain.user2 & " " & nom & "" & cont & " " & fech
                            nombre = UsuarioActivo & " " & nom & " " & fech
                            'My.Computer.FileSystem.CopyFile(file, "\\aussvr\Lic&Angel\" & nombre & ".pdf", FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
                            My.Computer.FileSystem.CopyFile(file, "\\192.168.254.252\Envios PDF\Pagobusdiego" & "\" & nombre & ".pdf", FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
                            'regitrar actividad
                            Bitacora.RegistraActividad("Envio el archivo " & nombre)
                        Next file
                        TextBox1.Clear()
                        TextBox2.Text = ""
                        ComboBox2.Text = "Día"
                        ComboBox3.Text = "Mes"
                        TextBox3.Text = "Año"
                        RadioButton1.Checked = False
                    End If
                ElseIf RadioButton1.Checked = False Then
                    If CheckBox1.Checked = True Then
                        direccion = "\\192.168.254.252\Envios PDF\Red PDFS" & "\"
                        copiar()
                        CheckBox1.Checked = False
                    Else

                        For Each file In OpenFileDialog1.FileNames
                            cont = cont + 1
                            'nombre = frmMain.user2 & " " & nom & "" & cont & " " & fech
                            nombre = UsuarioActivo & " " & nom & " " & fech
                            My.Computer.FileSystem.CopyFile(file, "\\192.168.254.252\Envios PDF\Red PDFS" & "\" & nombre & ".pdf", FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
                            'regitrar actividad
                            Bitacora.RegistraActividad("Envio el archivo " & nombre)
                        Next file
                    End If
                End If
                    TextBox1.Clear()
                    TextBox2.Text = ""
                    ComboBox2.Text = "Día"
                    ComboBox3.Text = "Mes"
                    TextBox3.Text = "Año"
                    RadioButton1.Checked = False

                End If
        End If
        Dim usuarioreg As Microsoft.Win32.RegistryKey
        usuarioreg = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Control\Mantenimiento")
    End Sub
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Close()
    End Sub
    Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
        
        If i Mod 2 = 0 Then
            RadioButton1.Checked = False
        Else
            RadioButton1.Checked = True
        End If
        i = i + 1
    End Sub
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox2.Enabled = False
            TextBox2.Text = "j"
        Else
            TextBox2.Text = ""
            TextBox2.Enabled = True
        End If
    End Sub
End Class